﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class MovremFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As MovremBE
        Dim tmpMovrem As MovremBE = New MovremBE()
        Try
            With tmpMovrem
                .Cantidad = convertDTFromDb.ConvertString(dr.Item("Cantidad"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Importe = convertDTFromDb.ConvertString(dr.Item("Importe"))
                .Numero = convertDTFromDb.ConvertString(dr.Item("Numero"))
                .Partida = convertDTFromDb.ConvertString(dr.Item("Partida"))
                .Precio = convertDTFromDb.ConvertString(dr.Item("Precio"))
                .SumaResta = convertDTFromDb.ConvertString(dr.Item("SumaResta"))
            End With
            Return tmpMovrem
        Catch ex As Exception
            Throw
        Finally
            tmpMovrem = Nothing
        End Try
    End Function
End Class
